VERSION 5.00 Begin VB.Form frmSplash BackColor = &H00000000& BorderStyle = 3 'Fixed Dialog ClientHeight = 4515 ClientLeft = 255 ClientTop = 1410 ClientWidth = 4500 ClipControls = 0 'False ControlBox = 0 'False Icon = "frmSplash.frx":0000 KeyPreview = -1 'True LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False Picture = "frmSplash.frx":000C ScaleHeight = 300 ScaleMode = 0 'User ScaleWidth = 300 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Begin VB.Timer Timer1 Enabled = 0 'False Interval = 5000 Left = 4080 Top = 120 End Begin VB.Label Label1 BackStyle = 0 'Transparent BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C0FFFF& Height = 315 Left = 120 TabIndex = 0 Top = 3360 Width = 4875 End Attribute VB_Name = "frmSplash" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_Click() CloseForm End Sub Private Sub Form_KeyPress(KeyAscii As Integer) CloseForm End Sub Private Sub Form_Load() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() CloseForm End Sub Public Sub CloseForm() Unload Me pdfmain.Show End Sub